home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / gnu / smaltalk.lha / smalltalk-1.1.1 / stix / Pen.st < prev    next >
Text File  |  1991-09-12  |  3KB  |  139 lines
  1. "======================================================================
  2. |
  3. | Copyright (C) 1990, 1991 Free Software Foundation, Inc.
  4. | Written by Steve Byrne.
  5. |
  6. | This file is part of GNU Smalltalk.
  7. |
  8. | GNU Smalltalk is free software; you can redistribute it and/or modify it
  9. | under the terms of the GNU General Public License as published by the Free
  10. | Software Foundation; either version 1, or (at your option) any later version.
  11. | 
  12. | GNU Smalltalk is distributed in the hope that it will be useful, but WITHOUT
  13. | ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
  14. | FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
  15. | details.
  16. | 
  17. | You should have received a copy of the GNU General Public License along with
  18. | GNU Smalltalk; see the file COPYING.  If not, write to the Free Software
  19. | Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  
  20. |
  21.  ======================================================================"
  22.  
  23.  
  24. "
  25. |     Change Log
  26. | ============================================================================
  27. | Author       Date       Change 
  28. | sbyrne     24 May 90      created.
  29. |
  30. "
  31.  
  32. Object subclass: #Pen
  33.        instanceVariableNames: 'gc direction marking location'
  34.        classVariableNames: ''
  35.        poolDictionaries: ''
  36.        category: nil
  37. !
  38.  
  39.  
  40.  
  41. !Pen class methodsFor: 'instance creation'!
  42.  
  43. new: gc
  44.     ^super new init: gc
  45. !!
  46.  
  47.  
  48. !Pen methodsFor: 'accessing'!
  49.  
  50. direction
  51.     ^direction
  52. !
  53.  
  54. location
  55.     ^location
  56. !
  57.  
  58. gc
  59.     ^gc
  60. !!
  61.  
  62.  
  63.  
  64. !Pen methodsFor: 'moving'!
  65.  
  66. down
  67.     marking _ true
  68. !
  69.  
  70. up
  71.     marking _ false
  72. !
  73.  
  74. turn: degrees
  75.     direction _ direction + degrees
  76. !
  77.  
  78. north
  79.     direction _ 0
  80. !
  81.  
  82. go: distance
  83.     | dest dirRad |
  84.     dirRad _ direction degreesToRadians.
  85.     dest _ location + ((distance * dirRad sin) negated @ (distance * dirRad cos)).
  86.     self goto: dest rounded
  87. !
  88.  
  89. goto: aPoint
  90.     marking
  91.     ifTrue: [ gc polyLine: location to: aPoint coordMode: #Origin ].
  92.     location _ aPoint
  93. !
  94.  
  95.  
  96. place: aPoint
  97.     location _ aPoint
  98. !
  99.  
  100. home
  101.     location _ 0@0
  102. !!
  103.  
  104.  
  105. !Pen methodsFor: 'examples'!
  106.  
  107. spiral: n angle: a
  108.     1 to: n do:
  109.     [ :i | self go: i. 
  110.            self turn: a ]
  111. !
  112.  
  113. dragon: n
  114.     n = 0
  115.     ifTrue: [ self go: 10 ]
  116.     ifFalse:
  117.         [ n > 0
  118.           ifTrue:
  119.               [ self dragon: n - 1.
  120.             self turn: 90.
  121.             self dragon: 1 - n ]
  122.           ifFalse:
  123.               [ self dragon: -1 - n.
  124.             self turn: -90.
  125.             self dragon: 1 + n ] ]
  126. !!
  127.     
  128.  
  129.  
  130. !Pen methodsFor: 'private'!
  131.  
  132. init: aGC
  133.     marking _ false.
  134.     location _ 0@0.
  135.     direction _ 0.
  136.     gc _ aGC
  137. !!
  138.  
  139.